home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Video Toaster 4.3
/
Video Toaster v4.3.iso
/
4.2
/
programs
/
screamernet
< prev
next >
Wrap
Text File
|
1998-04-16
|
2KB
|
86 lines
/* ScreamerNet.rexx V1.5 -- Interface glue for screamernet module */
/* By Bob Caron (Grue) © 1995 NewTek Inc. */
say "ScreamerNet II Launcher V1.5"
say
if ~exists('toaster:programs/lwsn.fp') then do
say "I can't find the program 'lwsn.fp' (needed for this software to run)."
say
say "Some possible reasons for this failure:"
say
say "1) The ScreamerNet Icon was not run from the NewTek/Programs directory."
say "2) The software was not installed properly."
say " (You may need to re-install the software)"
call quit
end
filnam = 'Toaster:Programs/LightWave_Support/SnetLauncher-config'
filnam2 = 'oldtoaster:Programs/LightWave_Support/SnetLauncher-config'
version = 'SnetLauncher v1.5'
if (exists(filnam)) then do
if (~open(state, filnam, 'R')) then break
if (readln(state) ~= version) then break
job=readln(state)
end
call close state
if job="JOB" | job="" then job=1
if exists("toaster:") then do
address command "c:assign oldtoaster: toaster:"
address command "c:assign oldhiip: hiip:"
address command "c:cd /"
address command 'c:assign toaster: "/" '
address command "c:assign hiip: toaster:programs/hiip_support"
end
commandd="toaster:Programs/Command/"
done=0
do while done=0
say
say "Current job number: "||job
say "Enter new job number or hit <Return> to keep current setting:"
pull newjob
if newjob="" then break
if (newjob<0 | newjob>999) then say "The job must be between 1 and 999."
else
do
job=newjob
say
say "Job number now set to: "||job
done=1
end
end
job=job+0
if (open(state, filnam2, 'W')) then do
call writeln state, version
call writeln state, job
call close state
end
say
say "Hit Control-C to quit."
say
sncommand="toaster:programs/lwsn.fp -2 "||commandd||"job"||job||" "||commandd||"ack"||job
address command sncommand
address command "c:assign toaster: oldtoaster:"
address command "c:assign hiip: oldhiip:"
exit
quit:
say
say "Press <RETURN> to exit."
pull input
exit